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CHI. 

PERKENALAN 

ASP (Active Server Pages) merupakan sistem penampil halaman web dinamis dengan 
menggunakan server Microsoft IIS (Internet Information Services). ASP sendiri sebenarnya 
bukan suatu bahasa pemrograman, karena ASP pada dasarnya menggunakan bahasa BASIC 
yang sebelumya telah dikembangkan. ASP menggunakan sintak yang kurang lebih sama 
dengan visual basic dalam pemrogramannya. 

Untuk dapat mengaktifkan ASP, Anda harus menggunakan sistem Operasi Windows yang 
pada distribusinya menggunakan kata "Profesional". Profesional disini berarti paket 
Windows tersebut memiliki kelebihan lain daripada versi lain daripada HOME Edition atau 
STARTER Edition, kelebihan tersebut adalah dukungan networking dan internet. 

Pada sistem Operasi Profesional terdapat fitur untuk meng install IIS pada komputer. 
Setelah IIS terinstal, Anda dapat mencoba membuka halaman default http://localhost/ pada 
browser Anda. 



Instalasi IIS dan Penggunaan Web Sharing 

a. Buka Control Panel -> Add Remove Programs 

b. Pada dialog Add remove pilih Add/Remove Window Component lalu cek pada 
Internet Information Services, lakukan Install dengan mengklik next. Jangan 
lupa memasukan CD Installasi Windows XP Professional ke CD-ROM Drive 
Anda. 



Windows Components 

You can add or remove components of Windows XP. 



To add or remove a component, click the checkbox. A shaded box means that only 
part of the component will be installed. To see what's included in a component, click 
Details. 

Components: 



□ ^P Indexing Service 
d§£ Internet Explorer 

D a3 Management and Monitoring Tools 
\jf". '?■.?■■•?■.= -?: ". ^. .;■■- 



COMB [J 

0.0 MB q 

2.0 MB _ 

OOMR B 



Description: Includes Web and FTP support, along with support for FrontPage, 

transactions. .Active Server Pages, and database connections. 
Total disk space required: 56.9 MB [ 

Space available on disk: 1 E71 .5 MB 



To add or remove a component, click the check box. A shaded box means that only part 
of the component will be installed. To see what's included in a component, click Details. 



3^^i:-L-:-e-:s r -rernet Information 3e-.' ;es ; 3': 





- 


| □ # Common Files 


1.0 MB 


□ (Q Documentation 


35 MB 




□ £l File Transfer Protocol [FTP] Service 


11 MB 




□ ^FrontPage 2000 Server Extensions 


4.3 MB 


"" 


Tfci] Internet Information Services Snap-In 


1.3 MB 




□ lis SMTP Service 


1.1 MB 


A World Wide Web Service 


2.3 MB 3 



Description: Installs Required IIS program files 



Total disk space required: 
Space available on disk: 



569 MB 

1571. & MB 



Konfigurasi Server IIS 

a. Buka Control Panel -> Administrative Tools -> Internet Information services 

b. Klik Kanan pad Default Website dan pilih New -> Virtual Directory 



*J=j Internet Information Services 
B~$ MICROCODE (local computer) 
B-Cl Web Sites 

(±|Q| Printers 
+ ^ mpsl 
El=Ql rysss 
© $& KelapaDuren 



©■■Cj Scripts 
Ep-CJ Printer 
©■■Q Print er2 



Name 



Lj Printers 
®mpsl 



| Pat 



Explore 

Open 

Browse 



Start 

StOJD 

Pause 



All Tasks 



■i! if 



c 

C:\ 
C:\ 
c:\i 



Virtual Directory.. 
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c. Inputkan alias untuk folder. Pada contoh tes site 



Type the alias you want to use to gain access to this Web virtual directory. Use the 
same naming conventions that you would for naming a directory. 

Alias: 



tes site 



d. Pilih Folder yang akan di publish. Pada contoh Desktop\Tes Site 



B- jpj MICRJ Enter the path to the directory that contains the content. 



Director/: 



Browse For Folder 



Virtual Directory Creation Wizard 



- 



a 



B "Cf KelapaDuren 
S Q mpsL 
S Q MySite-v 5 

1?^ Windows Vista Admin ist rat 01 
HI ijf Favorites 
S (£) Local Settings 

7h Mv Recent Docu ments v 

i±\ 



rrr 



Make New Folder 



c 



OK 



Cancel 



< Back 



Browse. 



Next > 



Cancel 



e. Mengator perizinan atas folder share 



Access Pennissions 

What access pemnissions do you want to set for this virtual directory? 



.AJlow the following: 



|7 g^adj 

|7 Run scripts (such as ASP) 

V Execute (such as I SAP I applications or CGI) 

r Write 

Browse 
Gick Next to complete the wizard . 



Atur agar folder 
dapat dibaca, 
manjalankan script 
atau bahkan akses 
Write atau browse 
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f. Folder Telah ter-share 





File Action View Help 


o | a (e1| x ffi 1 a b 


if ran 






^ Internet Information Sen/ices 
B- Jj MICROCODE (local computer) 


Name 




B-Q Web Sites 




B-dft Default Web Site 




ElGi Printers 




S"^ mpsl 




E)Gi rysss 




!±l ^ KelapaDuren 




El-Gj Scripts 




B-Q Printer 




S-Q Printer^ 




l sbi 




I ll 



Halaman Awal Anda 

Anda telah berhasil membuat direktori untuk web. Anda dapat mengakses direktori 
tersebut dengan mengetik http://localhost/tes%20site . %20 ditulis karena spasi di 
encode secara UTF-8 pada browser. Hal ini menjadi penting, maka disarankan 
mengganti spasi menjadi underscore "_" pada setiap penamaan file yang akan di 
share melalui HTTP agar memudahkan pemanggilan melalui URL browser. 

Jika Anda menemukan "Access Denied" hal itu terjadi karena folder tidak diberi 
permission untuk melakukan BROWSE dan salah satu file DEFAULT.ASP, 
DEFAULT.HTM, INDEX.ASP, INDEX.HTM tak ditemukan. Untuk itu maka dibuatlah 
halaman DEFAULT.ASP sebagai halaman awal. 

Buka NOTEPAD lalu ketikkan kode HTML dibawah ini: 



<html> 

<head><title>Halaman Awal Qu</title></head> 

<body> 

<h2>SELAMAT DATANG DI WEBSITE QUH ! AA </h2> 
< /body >< /html > 



Save dengan nama DEFAULT.ASP dan letakkan file di folder tes site yang 
sebelumnya Anda buat. 

Buka browser dan ketikkan alamat http://localhost/tes%20site untuk melihat 
halaman awal Anda. 




* * 4 * fi* d S I B http:/,/localhost/te5%205ite/ 



IQ*. Google 



H 



SELAMAT DATANG DI WEBSITE QUH! 



A A 



* El * |'cuoo% w\ 
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Sampai tulisan ini dibuat, penulis baru menemukan satu alamat untuk hosting berbasis ASP 
dan Windows, alamatnya adalah http://nofeehost.com dengan dukungan FTP, perawatan 
situs menjadi sangat mudah. Gunakan Client FTP seperti FileZilla FTP client atau WS_FTP, 
tidak dsarankan menggunakan windows explorer karena kinerjanya yang cukup lambat. 

Pada pembahasan selanjutnya Anda akan diperkenalkan langsung dengan ASP dengan studi 
kasus pada prog ram -prog ram yang telah dirancang dengan bantuan sedikit materi sintak 
dasar pada CH2 dengan screen shot yang membantu Anda dalam penuangan pemikiran dan 
pengaplikasian kode. Pada tingkatan ini, penulis harapkan Anda telah mengerti HTML 
sebelum melanjutkan pembahasan mengenai ASP. Referensi mengenai HTML banyak 
terdapat di internet baik berbentuk Ebook maupun Situs interaktif. 



End of chl. 
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CH2. 

SINTAK VISUAL BASIC 

Mengapa Visual Basic? Hal ini karena ASP bukan merupakan bahasa pemrograman yang 
berdiri sendiri, melainkan turunan dari bahasa program BASIC yang memang sejak awal di 
peruntukan pengguna awam dan bertujuan untuk fast programming. 

Bahasa VB yang digunakan untuk ASP tidak jauh berbeda, tetapi memiliki output yang 
berbeda. Maksudnya, apabila Anda membuat aplikasi VB maka hasil yang diperoleh adalah 
program untuk komputer, sedangkan ASP merupakan program untuk penampil halaman 
WEB yang hasilnya akan dibaca browser user dari seluruh muka bumi yang memilki koneksi 
internet. 

1. Sintak Dasar 



Kondisi 

a. IF THEN ELSE 



<% 


A=l 


IF A=l THEN 


%> 


INI Satu 


<% ELSE %> 


INI Angka Lain 


<%END IF%> 




INI Satu 



Jika di ketik A=2 ^ 



FiliE Edit View Bookmarks Widgets Tools Help 



INI Angka Lain 



M 



~gj 



til EsJ S | fi http :// 1 o ca I h o st/te s%20 s ite/SATU , AS P 



b. SELECT CASE 



<% 


A=l 


SELECT CASE A 


CASE 1 %> 


INI Satu 


<% CASE 2 %> 


INI Dua 


<% CASE ELSE %> 


INI Angka Lain 


<% END SELECT %> 




A=2 ^ 



A=8 -> 



* * # * Csj uj ■ gj http:-1ocalhosftes : c20sit5'SATU.-.SP 



INI Angka Lain 



Pada ASP, statement kondisi berperan sebagai kendali logika baik itu untuk program 
maupun penampil halaman WEB. SELECT-CASE merupakan statement kondisi yang sering 
dipakai pada tulisan ini sebagai pemilihan halaman web pada satu file yang akan dibahas 
kemudian. Selain itu terdapat FOR ... TO ... DO dan sebagainya. Carilah referensi yang lebih 
mendalam membahas Visual Basic. 
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- Pei 


ojlangan 

a. Do. ..Loop 

b. For Each.. 


.Next 














c. While. ..Wend 












- 


Operator 
Matematis 


- 


String 


- 


Konversi 


- 


Waktu dan 
Tanggal 






o 


Asc 


o 


CByte 






o 


Abs 


o 


Chr 


o 


CDbl 


o 


Date 


o 


Array 


o 


InStr 


o 


CInt 


o 


DateSerial 


o 


Atn 


o 


LCase 


o 


CLng 


o 


DateValue 


o 


Exp 


o 


Left 


o 


CStr 


o 


Day 


o 


Hex 


o 


LTrim 


o 


CVErr 


o 


Hour 


o 


Int 


o 


Mid 






o 


Year 


o 


Fix 


o 


Right 






o 


Weekday 


o 


Log 


o 


RTrim 






o 


Minute 


o 


Oct 


o 


Str() 






o 


Month 


o 


Rnd 


o 


StrComp 






o 


Now 


o 


Sgn 


o 


String 






o 


Second 


o 


Sqr 


o 


Trim 






o 


Time 


o 


Sin 


o 


UCase 






o 


TimeSerial 


o 


Tan 


o 


Val 






o 


TimeValue 



2. Fungsi yang hanya ada di ASP 

ASP memiliki statemet yang spesifik. Statement ini merupakan statement yang 
menjadikan ASP adalah pemrograman berbasis web. 

Statement REQUEST menerima masukan dari browser. 

Contoh: 

REQUEST.QUERYSTRING("string_var") 

REQUEST.FORM("string_var") 

Statement SERVER menerima masukan dari server atau mengerjakan statement 

untuk server. 

Contoh: 

SERVER.HTMLENCODE 

SERVER. MAPPATH 

3. Tentang Response 

Response merupakan fungsi yang digunakan untuk melakukan sesuatu baik itu 

untuk user maupun untuk fungsi yang dilakukan di server. 

Contoh: 

Response. addHeader "pragma", "no-cache" 

Response. addHeader "cache-control", "private" 

Response. CacheControl = "no-cache" 

Anda telah mengetahui sintak yang digunakan VB dan ASP. Pada bab selanjutnya Anda 
akan mengembangkan suatu web dinamis sederhana yang menggunakan sintak-sintak 
diatas. 



End of ch2. 
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CH3. 

MENGEMBANGKAN HALAMAN WEB 

Oke, pada tahap ini Anda telah mengerti penggunaan sintak dasar. Sintak dasar tersebut 
akan sangat berguna pada pengembangan selanjutnya, sehingga penulis menjamin Anda 
tak akan melupakan cara penggunaan sintak pada bahasan selanjutnya. 

Bab ini membahas tentang pengambangan halaman web dengan hanya menggunakan satu 
buah file. Mengapa hanya satu file? Hal ini tak mutlak berbasis pada satu file ASP, tetapi 
dalam satu fungsi tertentu akan lebih mudah memanajemen satu buah file yang berisi 
puluhan halaman atau bahkan ratusan daripada menggunakan banyak file. 

A. Bagaimana ASP "mendengar" perintah? 

Pada dasarnya, ASP berjalan di mesin server yang selalu dalam keadaaan menunggu 
input dari client (browser), oleh karena itu harus ada sistem yang mendukung 
komunikasi antar kedua mesin tersebut. Perintah HTTP umumnya adalah GET dan 
POST. GET digunakan dari string yang didapat dari pengetikan URL atau HYPERLINK 
sedangkan POST didapat dari FORM yang dibuat dalam suatu halaman HTML. 

1. Input menggunakan REQUEST. QUERYSTRING 

Perintah ini diaplikasikan menggunakan hyperlink yang terdapat pada HTML. 
Pada HTML hyperlink ditulis dengan sintak: 

<a href="sebuahhalaman.htm">sebuah halaman</a> 

Pada halaman ASP, sintak hyperlink dapat digunakan untuk mengendalikan flow 
atau aliran program. Maka sintak HTML menjadi: 

<a href= ,, sebuahhalaman.asp?aksil=varl&aksi2=var2&aksiN=varN ,, >AKSK/a> 

Perhatikan sintak diatas bahwa link ASP menggunakan tanda tanya "?" dan 
ampersand "&" untuk mengirim nilai variabel ke server. 

Metode GET yang menggunakan URL ini relatif mudah tetapi memiliki keamanan 
yang tak memadai. Misalnya ada user yang mencoba-coba memasukan nilai 
variabel lain yang tak diinginkan programer seperti pada studi kasus program 
penjualan dibawah ini: 

Listing penjualan. asp 



harga=request . querystring ( "harga" ) 

jenis=request .querystring (" jenis" ) 

%> 

<HTML> 

<HEAD><title>Pen jualan . asp</title></HEAD> 

<BODY> 

<H2>PENJUALAN</H2> 

<HR> 

Selamat! <brxbr> 

ANDA telah berhasil membeli <%=jenis%> 

dengan harga Rp . <%=harga%>,- 

</BODY> 

</HTML> 
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URL pada browser user: 
http://localhost/tes%20site/peniualan.asp? harqa = 1000&ienis=topi 



Output: 



File Edit View Bookmarks Widgets Tools Help 


^^M^^^gj 


Iv^^V^HBHHHHHUI t4 ^H 




m 4- * *<&{jJ/|J http://localhost te; : :20:ite penjualan.as <r| \<\ 6- 


y 


P EN J U ALAN 


Selamat! 

ANDA telah berhasil membeli topi dengan harga Rp. 1000,- 


■D- a- 


| Q» 100% ▼ J 



URL browser yang diubah user: 

http://localhost/tes%20site/peniualan.asp? harqa = 1000&ienis=pesawat 



Output: 



File Edit View Bookmarks Widgets Tools Help 


^ildriil ^»£3— ■[ 


FJf^J^PWWWWPWB^fl s '^JT^fl 


Htl UUWiiiSttiiiidi I^J^^^Q^ «y| Bhfl 


* 4- •*- ^taCl^jB http : //'I o ca 1 h o st/te s%20 s ite/p e nj u a 1 a n . a s , 7 1 | <X G< 


T 


PEN J U ALAN 


Selamat! 

ANDA telah berhasil membeli pesawat dengan harga Rp. 1000,- 


* Gl- 


| Q, 100% v J 



Anda perhatikan bahwa penjualan.asp hanya merupakan program sederhana 
yang menampilkan data dari string yang diberikan user. Apa jadinya jika program 
ini merupakan bagian dari sebuah perusahaan penjual berbagai macam barang? 
Tentu mereka akan mendapat kerugian yang sangat besar hanya karena 
kelalaian programer seperti ini. 

Dari contoh diatas disimpulkan bahwa penggunaan metode GET hanya digunakan 
untuk hal yang tak terlalu penting dan menyangkut keamanan pada sistem yang 
dibuat. 



Perhatikan listing 1 di halaman selanjutnya untuk studi kasus pengendalian 
halaman ASP menggunakan hyperlink. 
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Listing 1. file halaman.asp 



halaman=request . querystring ( "halaman" ) 

if halaman=l then aksi="hal 1" 
if halaman=2 then aksi="hal 2" 

select case aksi 

case "hal 1" 

%> 

<HTML> 

<HEAD><title>Title: Halaman K/title></HEAD> 

<BODY> 

<H2>Halaman 1</H2> 

<HR> 

Halaman ini adalah halaman 1, klik "halaman 

DEFAULT" atau 

hapus "halaman=l" pada URL untuk membuka halaman 

DEFAULT. 

<br>Klik "halaman 1" untuk ke halaman 1 

<br>Klik "halaman 2" untuk ke halaman 2 

<HR> 

<a href="halaman . asp?halaman=l">Halaman K/a><br> 

<a href="halaman . asp?halaman=2">Halaman 2</a><br> 

<a href="halaman.asp">Halaman DEFAULT</a><br> 

</BODY> 

</HTML> 

<%case "hal 2"%> 

<HTML> 

<HEAD><title>Title: Halaman 2</title></HEAD> 

<BODY> 

<H2>Halaman 2</H2><HR> 

Halaman ini adalah halaman 2, klik "halaman 

DEFAULT" atau 

hapus "halaman=2" pada URL untuk membuka halaman 

DEFAULT. 

<br>Klik "halaman 1" untuk ke halaman 1 

<br>Klik "halaman 2" untuk ke halaman 2 

<HR> 

<a href="halaman . asp?halaman=l">Halaman K/a><br> 

<a href="halaman . asp?halaman=2">Halaman 2</a><br> 

<a href="halaman.asp">Halaman DEFAULT</a><br> 

</BODY> 

</HTML> 

<%case else%> 

<HTML> 

<HEADXtitle>Title: Halaman DEFAULT</title></HEAD> 

<BODY> 

<H2>Halaman DEFAULT</H2><HR> 

Halaman ini adalah halaman DEFAULT. 

<br>Klik "halaman 1" untuk ke halaman 1 

<br>Klik "halaman 2" untuk ke halaman 2 

<HR> 

<a href="halaman . asp?halaman=l">Halaman K/a><br> 
<a href="halaman . asp?halaman=2">Halaman 2</a> 
</BODY> 
</HTML> 

<%end select%> 



URL: 

http ://localhost/tes%20site/halaman.asp 

atau 

http ://localhost/tes%20site/halaman.asp ?hala 

man=13 





File Edit View Bookmarks Widgets Tools 


Help 


El a k--\ 


MUmamimimL^^^^^^^ 


m M * ^ A& (il ^ || http://localhost'tes%20site/halaman.ast,'r| 


Halaman DEFAULT 


Halaman ini adalah halaman DEFAULT. 
Klik "halaman 1" untuk ke halaman 1 
Klik "halaman 2" untuk ke halaman 2 


Halaman 1 
Halaman 2 



URL: 

http ://localhost/tes%20site/halaman.asp ?hala 

man=l 




* * * * j$ Exl f | % http ://localhost/tes : c2Q sit;, halaman, as| v 0, 



Halaman 1 



Halaman inf adalah halaman 1, klik "halaman DEFAULT" atau hapus 
"halaman = 1" pada URL untuk membuka halaman DEFAULT. 
Klik "halaman 1" untuk ke halaman 1 
Klik "halaman 2" untuk ke halaman 2 



Halaman 1 
Halaman 2 
Halaman DEFAULT 



URL: 

http://localhost/tes%20site/halaman.asp?hala 
man = 2 




Perhatikan Listing 2 pada halaman selanjutnya untuk 
pengembangan lebih lanjut. 



* * * *ifrEi^|S| http:,viocalho;t te; : :20:ite hala man. as|, % ] I Q> Ga 



Halaman 2 



Halaman ini adalah halaman 2, klik "halaman DEFAULT" atau hapus 
"halaman =2" pada URL untuk membuka halaman DEFAULT. 
Klik "halaman 1" untuk ke halaman 1 
Klik "halaman 2" untuk ke halaman 2 



Halaman 1 
Halaman 2 
Halaman DEFAULT 



Page | 13 



Perhatikan listing 2 dibawah ini untuk studi 
menggunakan form dengan method GET. 



kasus pengendalian halaman ASP 



Listing 2. halaman2.asp 



halaman=request . querystring ( "halaman" ) 

if halaman=l then aksi="hal 1" 
if halaman=2 then aksi="hal 2" 

select case aksi 

case "hal 1" 

%> 

<HTML> 

<HEAD><title>Title: Halaman K/title></HEAD> 

<BODY> 

<H2>Halaman 1</H2><HR> 

Halaman ini adalah halaman 1, klik "halaman 

DEFAULT" atau 

hapus "halaman=l" pada URL untuk membuka halaman 

DEFAULT. 

<hr> 

<input type=button value=KEMBALI 

onclick="history . go (-1) "></input> 
</BODY> 
</HTML> 

<%case "hal 2"%> 

<HTML> 

<HEAD><title>Halaman 2</title></HEAD> 

<BODY> 

<H2>Halaman 2</H2><HR> 

Halaman ini adalah halaman 2, klik "KEMBALI" atau 

hapus "halaman=2" pada URL untuk membuka halaman 

DEFAULT. 

<hr> 

<input type=button value=KEMBALI 

onclick="history . go (-1) "</input> 
</BODY> 
</HTML> 

<%case else%> 

<HTML> 

<HEADXtitle>Halaman DEFAULT</title></HEAD> 

<BODY> 

<H2>Halaman DEFAULT</H2><HR> 

Halaman ini adalah halaman DEFAULT. 

<br>Pilih "halaman 1" untuk ke halaman 1 

<br>Pilih "halaman 2" untuk ke halaman 2 

<HR> 

<form method=GET action=halaman2 . asp> 

<input type=radio name=halaman value=l> 

Halaman K/inputxbr> 

<input type=radio name=halaman value=2> 

Halaman 2</inputxbr> 

<input type=submit value=kirim> 

</form> 

</BODY> 

</HTML> 

<%end select%> 



KflW^^fflHaHijTiB^^^B 




j|^zkl"-£5»| 


File Edit View Bookmarks Widgets 


lools 


Help 




lv?9 . fcJ ^^^^fl 












* M # *t&El^|J http://localh 


j;t te; : 


3 




Halaman DEFAULT 






w 


Halaman ini adalah halaman DEFAULT. 
Pflfh "halaman 1" untuk ke halaman 1 
Pflfh "halaman 2" untuk ke halaman 2 


* Halaman i 
Halaman 2 

kirim | 


« 


Ei- 


<K ioo% 


t 



"* Title: Halaman 1 - Opera 






JdEkl— £&-l' : 


File Edit View Bookmarks Widgets 


Tools 


Help 




■v*,F| A 




Mr 




m M * » t& J3 f 


B http://localht 


:\\^-- 


^1 


Halaman 1 


Halaman ini adalah halaman 1, klik 
DEFAULT" atau hapus "halaman = 1' 
untuk membuka halaman DEFAULT 


'halaman 
pada URL 


KEMBALI | 




a 


E§- 


. 100= : T 




Halaman 2 



Halaman ini adalah halaman 2, klik "KEMBALI" 
atau hapus "halaman =2" pada URL untuk 
membuka halaman DEFAULT. 



KEM BALI | 



<1< Ei - JQ.100% ,y.J 
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Input menggunakan REQUEST. FORM 

Form merupakan bagian dari HTMLyang menangani input data dari user. Data 
ditampung oleh tag INPUT yang diberi atribut NAME. Tag INPUT yang tak diberi 
NAME nilai data (value) tidak akan dikirim ketika user menekan tombol 
(BUTTON) yang beratribut tipe SUBMIT. Request. Form hanya didapat apabila 
menggunakan method POST pada form yang dirancang. Berikut adalah contoh 
penggunaan FORM: 



Listing INPUT.ASP 



<HTML> 

<HEADX/HEAD> 

<BODY> 

<form method=POST action=nama . asp> 

Nama Anda : 

<input type=text name=nama value=" " /><br> 

NPM Anda: 

<input type=text name=NPM value=" " /></br> 

Password: 

<input type=password name=pass value=""/> 

</brxhrxinput type=submit value=KIRIM> 

</form> 

</BODY> 

</HTML> 



Listing NAMA.ASP 



name=request . form ( "nama" ) 

NP=request . form ( "NPM" ) 

PW=request . form ( "pass" ) 

%> 

<HTMLXHEADX/HEAD> 

<BODY> 

DATA BERHASIL DIINPUT<hr> 



Nama Anda 

NPM Anda: 

Password: 

<hr> 

</BODY> 

</HTML> 



: <bx%=name%x/bxbr> 
<bx%=NP%x/bx/br> 
<bx%=PW%x/bx/br> 



Output: 



' J http://localhost... ' - " □ IITX— 


File Edit View Bookmarks W 


••' 1 fe x m x * 


\ It 


1 s ... s ... < 


J ™ 


« * + » ££j gj f 


Nama Anda: 




tes ajah neeh 




NPM Anda: 




12311222 




Password: 




*** * ******* * ***** 












KIRIM 








■1< t£ " |^ioo% tJ 




M + i* * t£ £j f 



DATA BERHASIL DIINPUT 

Nama Anda: tes ajah 

neeh 

NPM Anda: 12311222 

Password: 

darisatusampelima 



-in (+1 ' | Q> 100% w\ 



Penggunaan input menggunakan FORM relatif lebih aman karena URL tidak akan 
menampilkan value dari data yang diinput. Walaupun demikian, karena user 
dapat menyimpan salinan dari INPUT.ASP dan merubah paksa valuenya atau 
bahkan menginput TAG HTML. Oleh karena itu harus dipikirkan kembali 
pemecahan agar form yang dibuat menjadi lebih aman dan tidak terlalu sensitif 
terhadap data yang diberikan dari client. 
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Penggabungan FORM dan GET 

Pada halaman sebelumnya Anda telah mencoba listing yang menggunakan GET baik 
itu dengan hyperlink (HALAMAN. ASP) maupun FORM (HALAMAN2.ASP). Untuk 
mempermudah administrasi file ASP, dapat saja program INPUT. ASP dan NAMA.ASP 
digabung dengan pemilihan halaman menggunakan Request. QueryString. Berikut 
adalah pengembangan dari program sebelumnya: 



Listing CEKINPUT.ASP 



<% NM= request . form ( "nama" ) 
NPM= request . form ("NPM") 
PASS= request . form ( "password" ) 

retError= request . querystring ( "isError" ) 
retNm= request . querystring ( " isRetNm" ) 
retNPM= request . querystring ( " isRetNPM" ) 



hal= request . querystring ( "halaman" ) 

if hal="cekpw" then page="cek" 

if hal="" then page="def ault" 

if halo"" and halo"cekpw" then page="error" 



select case page 

case "cek" 

if NM<>"tes aja" then erl=l else erl=0 

if NPM<>"123" then er2=l else er2=0 

if pass<>"asd" then er3=l else er3=0 

if erl=0 and er2=0 and er3=0 then %> 



BERHASIL LOGIN! 



<%else 
response . redirect ( "cekinput . asp?isError=l&isretNm= 
+NM+ " & i s retNPM= " +NPM) 

end if%> 



<%case "default" 

if isnull (retError) or retErroro"" then 
errTeks="<f ont color=red>User dan atau Password 
tidak COCOK!</font>" 
else 

errTeks="" 
end if %> 
" Tl^errielcs ^> 
<br><f orm action="cekinput . asp?halaman=cekpw" 
method=post> 

Nama anda: <input name=nama type=text 
value="<%=retNm%>"/xbr> 
NPM anda: <input name=NPM type=text 
value="<%=retNPM%>"/xbr> 

Password: <input name=password type=password 
value=""/xbr> 

<brxinput type=SUBMIT value=KIRIM> 
</form> 



<%case "error"%> 
MAAF HALAMAN ERROR<hr> 
Silakan kembali, klik <a 
href=cekinput . asp>disini</a> 
<%end select%> 



Baris kode awal ini bertujuan untuk mendapat input 
dari client. Hasil dari input hanya ditampung dalam 
variabel yang berkaitan. 

Variabel-variabel ini digunakan untuk kode 
dibawahnya. 



Barisan kode ini menentukan halaman yang akan 
tampil, terdapat error handler yang bertujuan untuk 
membatasi akses client. 



Kode ini berguna untuk menampilkan halaman "cek" 
untuk membandingkan dan mengarahkan halaman ke 
halaman berhasil login, tetapi jika tidak ada kecocokan, 
halaman akan redirect dengan memberi flag isError=l 



Baris kode ini adalah halaman HTML jika berhasil 
login. Dapat di kembangkan sesuai kebutuhan. 



Kode ini merupakan bagian dari halaman "cek" yang 
menghasilkan error, hasil error akan dikembalikan ke 
halaman default dengan menampilkan error teks. 



Kode ini bertujuan untuk menampikan halaman 
DEFAULT yang menampilkan input box. Error teks 
didapat dari return value jika terjadi password/user 
tidak cocok. Jika return error tidak ada, tentu hanya 
menampilkan Input box saja tanpa error teks. 



Tag HTML untuk input box dan submit. Form 
action= cekinput. asp?halaman=cekpw berarti 
langsung mengarahkan ke halaman cekpw dan 
melakukan pengecekan password/user/npm. 

Sintak <%=retl\lpm%> dan <% = retl\lm%> 
adalah sintak ASP yang berguna untuk menampilkan 
value Nama dan NPM hanya jika terjadi error login. 
Sebelumnya nilai NAMA dan NPM didapat dari 
request. querystring. 



Halaman HTML ini akan tampil jika user selain 
memasukan halaman=cekpw. Tentu tidak ada halaman 
lain selain cekpw dan default, maka hasilkan halaman 
error ini dengan link yang mengembalikan user ke 
halaman Default. 
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Output CEKINPUT.ASP 
1. Default 



. http://localhost/tes%20site/cekinputasp -Opera 



File Edit View Bookmarks Widgets Tools Hi 



^ il http:, 



"Hi 



WMlilJHW^H 



Rendy's Official Site 



« * + * jgj EJ f H) b205ite/cekinput.asp w 



Nama anda: 


NPM anda: 


Password: 



KIRIfvl 



■~t EB 



2. Jika Password & NPM & Nama 
tak cocok 



A^yHpHK^v, 


File Edit View Bookmarks Widgets Jools Hf 


g httpi/ZTocalhost/tes... gj Rendy's Official Site 






1 41 


* + h tji (jj / | http://localhost/tes^,T» 


Ui 


ser dan atau Password tidak COCOK! 


Ni 


3ma anda: adsfc 


NPM anda: asfa 


Password: 






KIRIM 




# (±i * 



3. Jika berhasil login 



> http://localhost/tes%20site/cekinput.asp?halaman=. 



File Edit View Bookmarks Widgets Tools H 



"Ol 



4. Jika terjadi manipulasi URL 



-"***45JQ^B http:. 7localhosVt.es? t 



BERHASIL LOGIN! 



■a- GB 




File Edit y_iaw Bookmarks Widcicts Tools Hi 



Rendy's Officiate I | http., 



Rendy's Official Site 



* + + »jg}Qy|j 



SD?halaman=c32432 



MAAFHALAMAN ERROR 



Silakan kembalf, klfk disini 



.-,. tSM 



Program yang dijabarkan adalah program untuk mengendalikan halaman-halaman yang 
terdapat pada satu file ASP. Masih banyak cara untuk menampilkan halaman, hal itu 
termasuk pada kreatifitas Anda pada pemrograman ASP. Bahasan selanjutnya adalah 
penggunaan Data Base sebagai penyaji data. 



End of cAi3. 
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CH4. 

KONEKSI DATABASE 

Setiap pern rogra man web tak terlepas dari Database, karena database inilah halaman dapat 
disebut 'dinamis' sesuai dengan keinginan si pembuat situs dalam menyajikan informasi. 
Anda juga mempelajari SQL (Structured Query Language) untuk "memanggil" data yang 
tersimpan pada database. ASP dapat menggunakan database MS-Access, MS SQL atau 
bahkan Oracle sampai MySql tetapi tentu saja dengan penyesuaian koding. 

Pada tulisan ini penulis menggunakan cara untuk menampilkan dan memanipulasi database 
yang dibuat oleh Microsoft Access. Cara ini dipilih karena relatif mudah dan database ini 
berbasis file, lain halnya dengan MS SQL yang berupa satu kesatuan sistem database. 

Untuk membuat file MDB, Anda harus membuatnya terlebih dahulu dengan menggunakan 
Microsoft Access 2003 atau 2007 dan menyimpan file tersebut dengan ekstensi MDB. File 
MDB dapat dibuka oleh server IIS yang mengizinkan SERVER. CREATEOBJECT, jadi untuk 
mempublish website yang menggunakan database access harus terlebih dahulu di cocokan 
antara server dengan kode yang akan dikembangkan. 

Selanjutnya adalah studi kasus pembacaan, penulisan dan pengupdatean database bernama 
NAMA.MDB dengan ASP. Susunan database NAMA.MDB adalah sebagai berikut: 



rabel : tbl_nama Kolom: isID(autoIncrement) isl\lama,isAlamat(string) isLulus(boolean) 



isID 


isNama 


isAlamat 


isLulus 


1 


Adang Mulya 


Jakarta 


Cek 


2 


Guruh Adang 


Banten 


NoCek 


3 


Maya Sari 


Bandung 


Cek 


4 


Mulan Jesika 


Bandung 


Cek 


5 


Raja Dudung 


Depok 


NoCek 



Membuka dan Membaca Entri dari Database 

Sintak dasar untuk membuka database Access adalah sebagai berikut: 

(Nama File= tesData.asp, Nama DB= nama.mdb, 
NamaTabel= tb\_nama, Kolom = isNama, isAlamat/isLulus) 



<% dbPath = Server .MapPath ("nama.mdb") 

xDb_Conn_Str = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & 

Set conn = Server . CreateObject ( "ADODB . Connection" ) 

conn . Open xDb_Conn_Str 
Set rs = Server .CreateObject ("ADODB. Recordset") 
sqlx = "Select * from [tbl_Nama] " 

rs.Open sqlx, conn 
if rs.EOF then%> 

MAAF, Data yang diminta tak ditemukan ! 
<%end if%> 

<%Do While not rs.EOF%> 
Nama: <%=rs ("isNama") %><br> 
Alamat : <%=rs ("isAlamat") %><br> 

Lulus: <font color=<%if rs ("islulus") then%>green<%else%>RED 
<%end if%»<%=rs ("isLulus") %></f ontxbr><hr> 
<% rs.movenext 
loop 

rs . Close 

Set rs = Nothing 
conn . Close 
Set conn = Nothing %> 



db 
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Penjelasan listing program: 



e. 



File database dipanggil dengan sebelumnya menentukan letak absolut dari 

database tersebut, dalam hal ini Anda dapat menggunakan SERVER. MAPPATH 

untuk mendapat string alamat absolut dari file database Anda. 

Mendefinisikan objek database dengan perintah SET CONN = 

SERVER. CREATEOBJECTsetelah itu dibuka dengan perintah CONN. OPEN 

connection_string. 

Setelah koneksi terbentuk, Anda membuat objek recordset yang akan 

menampung nilai database. Record set dapat diisi dengan 

record_set_var.Open sql_command, connection_object 

Jika recordset telah mencapai End Of File (tak ada data) maka Anda cetak 

error tersebut dengan HTML. 

Jika recordset berisi data, maka lakukan penampilan dengan menggunakan 

sintak perulangan do While not EOF yang dilanjutkan dengan loop. Program 

akan menampilkan dan mencetak data dan TAG HTML berulang hingga data 

terbaca semua dan menemukan flag EOF dari record set. 

Setiap Objek yang tercipta menggunakan memori (RAM) pada server, oleh 

karena itu setelah selesai di eksekusi, data dan variabel yang ada harus di 

hapus dari memori dengan terlebih dahulu menutup object dilanjutkan 

dengan menghilangkan variabel objek set var_object=nothing. 



Output TESDATA.ASP 
dengan SELECT*: ^ ^ 



ditambah WHERE isAlamat='Jogja' 




* ¥ * * i$ (3 ^ |B EErcnanaimEHg.T. 



Nam a: Adang Mulya 
Alamat; Jakarta 
Lulus: True 



Nam a: Guruh Adang 
Alamat: Banten 
Lulus: False 



Nam a: Maya Sari 
Alamat: Bandung 
Lulus: True 



Nam a: Mulan Jesfka 
Alamat: Bandung 
Lulus: "rue 



Nama: Raja Dudung 
Alamat: Depok 
Lulus: False 



* El • I *\ 100% 



* * * » a El * [i EsrarcmHiEnJEffj T | 



MAAF, Data yang dfmfnta tak dftemukan! 



■6< El * : ci 100% . ▼.] 
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Output TESDATA.ASP 
WHERE isLulus=true: 



^ ^ WHERE isAlamat='Banten': 




* * » ifi El r 1 



Nam a: Adang Mulya 
Afamat: Jakarta 
Lulus: True 



Nam a: Maya Sari 
Alamat: Bandung 
Lulus: "rue 



Nam a: Mulan Jesfka 
Alamat: Bandung 
Lulus: True 



# Si - | a 100^ 




* + * * *& El ^ IJ http://localhosty 



Nam a: Guruh Adang 
Alamat: Banten 
Lulus: False 



<i< Gm - |Q>ioo% .tJ 



2. Cara Menampilkan Data 

Cara termudah penampilan data adalah dengan langsung memformat entri data 
dalam tag HTML. Berikut adalah pengembangan program contoh penampil seluruh 
entri dari database NAMA.MDB: 



(Nama File= tesDatal.asp, Nama DB= nama.mdb, 
NamaTabel= tb\_nama, Kolom= isNama, isAlamat/isLulus) 



<% dbPath = Server .MapPath ("nama.mdb") 

xDb_Conn_Str = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & 
Set conn = Server . CreateObject ( "ADODB . Connection" ) 
conn . Open xDb_Conn_Str 

Set rs = Server .CreateObject ("ADODB. Recordset") 
sqlx = "Select * from [tbl_Nama] " 

rs.Open sqlx, conn 
if rs.EOF then%> 

MAAF, Data yang diminta tak ditemukan ! 
<%end if%> 

<table border=lxtr bgcolor=#eef ef eee> 

<td>ID</tdxtd>Nama</td><td>Alamat</td><td>Lulus</tdx/tr> 
<%Do While not rs .EOF%xtr><tdx%=rs ("isID") %></td> 
<tdx%=rs ("isNama") %x/tdxtdx%=rs ("isAlamat") %></td> 
<tdxfont color=<%if rs ("islulus") then%>green<%else%>RED 
<%end if%»<%=rs ("isLulus") %x/f ontx/tdx/tr> 
<% rs.movenext 
loop 

rs . Close 

Set rs = Nothing 
conn . Close 
Set conn = Nothing %></table> 



db 



Output tesData2.asp 
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* * * » & Q • |j Ernsamaraaasffi , 



ID Mama Aiamat Lulus 


1 Adang Mulya Jakarta True 


2 Guruh Adang Banten False 


3 IM ay a Sari J Bandung True 


4 Mulan Jesika Bandung True 


5 Raja Dudung Depok False 



# Gl - I Q» ioo% ,.«. 



Tag TABLE dan TR yang berisi ID 
NAMA ALAMAT dan LULUS tidak 
masuk looping. 

Untuk menampilkan data TAG TR dan 
TD di looping selanjutnya data dari 
record set dicetak sesuai kolomnya. 

Setelah selesai looping jangan lupa 
menutup tag <TABLE> dengan 
</TABLE> tentunya di tik setelah 
kode ASP yang berfungsi menutup 
database. 



Di bawah ini adalah tag yang dihasilkan oleh listing tesData2.asp, kode ASP tak akan 
tertampil karena kode ASP terproses di server. 




3 Save 



<tafcle tcrder=lxtr fcgcolor=#eef ef eee> 
< t d>I D< / 1 dx t d>Nama < / 1 d>< t d>Ai ama t < / 
tdxtd>Lulus< / 1 d>< / 1 r > 

<trxtd>l</td> 
<td>Adang Mulya</tdxtd>Jakarta</td> 
<tdxfont CQlQr=gieen>True</ f ontx/tdx/ 
tr> 

<trxtd>2</td> 
<td>Guru!i Adang</tdxtd>Banten</td> 
<tdXfont coloz=RED 
>Fa I s e < / f o n t X / 1 dx / ti> 

<trxtd>3</td> 
< t d>Ma ya Sari</t dx t d>3 a ndung< / 1 d> 
<tdxf ont CQlor=gr een>True</ f ontx/ tdx/ 
tp> 

<trxtd>4</td> 
< t d>Mul an Je s i ka< / 1 dx t d>2 a ndung< / 1 d> 
<tdXfont color=green>Tiue</fontX/tdX/ 
tr> 

<trxtd>5</td> 
<td>Raja Dudung</tdxtd>Depok</td> 
<tdxfont color=RSD 
>Fa lse</fcntx / 1 dx / 1 r > 
</table> 



100= : 



" 



Pemformatan output tersebut bebas 
dan tak terbatas, hal ini tergantung 
pada desain yang diinginkan. 
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Menambah Data 

Untuk melakukan penulisan data dapat dilakukan dengan sintak SQL INSERT INTO, 

pada ASP sintak ini ditulis dengan cara: 



dbPath = Server .MapPath ( "nama.mdb" ) 

connectADO.Open "Provider=Microsof t . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

strCommand = "INSERT INTO tbl_nama ( isNama, isAlamat , isLulus) VALUES ('" 

strCommand = strCommand & keyNama & " ! , ' " & keyAlamat& " ' r ' " & keyLulus & 
connectADO . Execute strCommand 



Implementasi kode diatas dapat dilakukan dengan file tersendiri atau dengan cara 
satu file ASP seperti yang telah dijabarkan pada bab sebelumnya. 

Selanjutnya adalah studi kasus untuk menambah data baru untuk database 
NAMA.MDB, properti NAMA.MDB sama seperti database yang digunakan pada 
contoh-contoh sebelumnya. 



Listing tesData3.asp 

<% keyNama=Request . form ( "Nama" ) 

keyNama=replace (keyNama, " ' " , " " ) 

keyAlamat=Request . form ( "Alamat" ) 

keyAlamat=replace (keyAlamat, " ' " , " " ) 

keyLulus=Request . form ( "Lulus" ) 

if keyLulus="on" then keyLulus="True" else keyLulus="False" 

aksi= Request . querystring ( "aks" ) 

if aksi="view" then hal="view" 

if aksi="" then hal="def ault" 

if aksi="add" then hal="add" 

if aksio"" and (aksio"view" and aksio"add") then hal="error" 

SELECT CASE hal 

Case "add" 

if keyNama="" or keyAlamat="" then 

response. write ("TERDAP AT FIELD YANG KOSONG, KLIK BACK PADA BROWSER ANDA" ) 

else 

Set connectADO = Server . CreateObject ( "ADODB . Connection" ) 

dbPath = Server. MapPath ("nama.mdb") 

connectADO.Open "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

strCommand = "INSERT INTO tbl_nama (isNama, isAlamat, isLulus) VALUES ('" 

strCommand = strCommand & keyNama & "', '" & keyAlamat& "'," & keyLulus & ")" 

connectADO. Execute strCommand 

response . redirect "tesData3 . asp?aks=view" 

END IF 

%> 

<%case "default"%> 

TAMBAH DATA NAMA.MDB<HR> 

<form action="tesData3.asp?aks=add" method=POST> 

Nama: <input type=text name=Nama value=" " /><br> 

Alamat: <input type=text name=Alamat value=" " /><br> 

Lulus: <input type=checkbox name=Lulus /><br><hr> 

<input type=submit value=KIRIM> 

</form> 

<%case "error"%> 

HALAMAN ERROR Silakan kembali [<a href=tesData3 . asp>klik disini</a>] 

Lanjutan 
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<%case "view"%> 

<% dbPath = Server .MapPath ("nama.mdb") 

xDb_Conn_Str = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

Set conn = Server . CreateObject ( "ADODB . Connection" ) 
conn. Open xDb_Conn_Str 

Set rs = Server .CreateObject ("ADODB. Recordset") 
sqlx = "Select * from [tbl_Nama] " 

rs.Open sqlx, conn 
if rs.EOF then%> 

MAAF, Data yang diminta tak ditemukan ! 
<%end if%> 

<table border=lxtr bgcolor=#eefefeee> 

<td>ID</tdxtd>Nama</td><td>Alamat</td><td>Lulus</tdx/tr> 
<%Do While not rs . EOF%xtr><tdx%=rs ( "isID" ) %></td> 
<tdx%=rs ( "isNama" ) %x/tdxtdx%=rs ( "isAlamat" ) %></td> 
<tdxfont color=<%if rs ( "islulus" ) then%>green<%else%>RED 
<%end if%»<%=rs ("isLulus") %x/f ontx/tdx/tr> 
<% rs.movenext 
loop 

rs .Close 

Set rs = Nothing 
conn . Close 

Set conn = Nothing %x/tablexhr> 
<a href="tesData3 . asp">Tambah Data Baru</a> 
<%end select%> 



Output tesData3.asp 



File Edit View Bookmarks Widflets 


lools 


Help 


■lrfJLbl— n £3-^|| 


n O ^^M \ 1 


»^^y|y|^g|^gj^gg|||j|^^2^ Brf 


**#*4*jQ^g http:/:localhost-tes e 






w 




TAMBAH DATA NAMA.MDB 










Nam a: Ruki Hendra 


Alamat: Kampng Batu 
Lulus: s/ 










[ KIRIM ] 




# 


ei- 


Q» 100% ▼ ] 




|lD |Nama J|Afamat 


| Lulus 


|l ||Adang Mulya (Jakarta 


||True | 


\2 ||Guruh Adang|Banten 


||False| 


|3 ||Maya Sari ||Bandung 


||True | 


\A ||Mulan Jesika |Bandung 


|~'--:c 


\5 |Raja Dudung |Depok 


||False| 


\29 |Ruki Hendra |Kampng Batu |~a:e 



Tambah Data Barn 



■fi< tEM * | <\ ioo% ,r 



CTlfflBBffSlWffPP?^^ ■^■EikPb—l 


File Edit View Bookmarks Widgets Tools Help 


* + * Hi&EJy'g http localriosttes?- t| 


TAMBAH DATA NAMA.MDB 




Nam a: tes tanpa alamat 

Alamat: 
Lulus: [vf 


KIRIM , 


.£< El - i Q* 100% tJ 




TERDAPAT FIELD YANG KOSQNG, KLIK BACK 



■a- S 



i a loo?-; 



Output tesData3.ASP jika variabel AKS diisi selain add atau view: 
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http://localhost/tes%20siteAesData3.asp?aks = request - Opera 



File Edit View Bookmarks Widgets Tools Help 



http://rocalhost/tes%20., 



k 



****tJJiEiy0 t/tes%20site/iSS 



Qt, Google 



il S3 



HALAMAN ERROR Sflakan kemball [ klikdfsini l 



■6- tSM w \<K 100% 



4. Mengupdate Data 

Untuk mengupdate data yang telah ada tak dapat langsung dengan menggunakan 
sintak SQL UPDATE, tetapi dengan cara menggunakan variabel sementara lalu 
melakukan UPDATE dengan mengupdate recordset yang sebelumnya terdefinisi. 
Lengkapnya pengupdatean Database dengan cara sebagai berikut: 



xID=request . querystring ("xID") 
nama=request . querystring ( "nama" ) 

dbPathx = Server .MapPath ("nama.mdb") 

xDb_Conn_Strx = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source="&dbPathx 
Set connx = Server . CreateObject ( "ADODB . Connection" ) 

connx.open xDb_Conn_Strx 
Set rsx = Server .CreateObject ("ADODB. Recordset") 
sqlxx = "Select * from [tbl_nama] where [isNama] ="&xID 

rsx. Open sqlxx, connx, 1, 2 
nama=rsx ( "isNama" ) 
nama=updateData 
tmpFld = Trim(nama) 
If trim(tmpFld) & "x" = " 
rsx ("isNama" ) = tmpFld 
rsx . Update 
rsx . Close 
Set rsx = Nothing 
Connx . Close 
Set connx = Nothing %> 



x" Then tmpFld = Null 



Kode diatas adalah kode untuk update recordset yang ada. Kode tersebut awalnya 
sama seperti pemanggilan data, tetapi ditambahkan rsx. Open sqlxx, connx, 1, 2 . 
Sintak tersebut digunakan sebagai hak akses update database, jika tak ditambahkan 
1 , 2 akan menghasilkan error karena database tak dapat di update. 



Dari potongan kode diatas, Anda dapat menggabungkan kode tersebut dengan kode 
tesData3.ASP yang sebelumnya. Halaman yang diubah adalah halaman yang 
menampilkan data dengan penambahan link untuk update. Selain itu ditambahkan 
juga halaman untuk Update. Tetapi untuk mempermudah pemahaman, Anda pahami 
terlebih dahulu kode yang baru yaitu tesData4.ASP. 



Page | 24 



Listing TESDATA4.ASP 



Response . addHeader "pragma", "no-cache" 
Response . addHeader "cache-control", "private" 
Response . CacheControl = "no-cache" 

keyNama=Request . form ( "Nama" ) 

keyNama=replace (keyNama, " ' " , " " ) 

keyAlamat=Request . form ( " Alamat " ) 

keyAlamat=replace (keyAlamat, " ' ", " " ) 

keyLulus=Request . form ( "Lulus" ) 

if keyLulus="on" then keyLulus="True" else keyLulus="False" 

aksi= Request . querystring ( "aks" ) 

if aksi="tampil" then hal="tampil" 

if aksi="" then hal="def ault" 

if aksi="upd" then hal="update" 

if aksio"" and (aksio"tampil" and aksio"upd") then hal="error" 



SELECT CASE hal 

Case "update" 

xID=request . querystring ( "id" ) 

if keyNama="" or keyAlamat="" then 

response. write ("TERDAP AT FIELD YANG KOSONG, KLIK BACK PADA BROWSER ANDA" ) 
else 

dbPathx = Server .MapPath ("nama. mdb") 
xDb_Conn_Strx = "Provider=Microsoft . Jet . OLEDB . 4 . ; Data Source="&dbPathx 

Set connx = Server . CreateObject ( "ADODB . Connection" ) 
connx.open xDb_Conn_Strx 

Set rsx = Server .CreateObject ("ADODB. Recordset") 

sqlxx = "Select * from [tbl_nama] where [isID]="&xID 
rsx. Open sqlxx, connx, 1, 2 

nama=rsx ( "isNama" ) 

nama=keyNama 

tmpFld = Trim (nama) 

If trim(tmpFld) & "x" = " 

rsx ("isNama" ) = tmpFld 

alamat=rsx ( "isAlamat" ) 

alamat=keyAlamat 

tmpFld = Trim (alamat) 

If trim (tmpFld) & "x" = " 

rsx ("isAlamat") = tmpFld 

lulus=rsx ( "isLulus" ) 

lulus=keyLulus 

tmpFld = Trim (lulus) 

If trim (tmpFld) & "x" = " 

rsx ( "isLulus" ) = tmpFld 

rsx .Update 

rsx. Close 

Set rsx = Nothing 

Connx . Close 

Set connx = Nothing 
response . redirect "tesData4 . asp" 
END IF 
%> 



Then tmpFld = Null 



Then tmpFld = Null 



Then tmpFld = Null 



<%case "tampil" 

xID=Request .Querystring ( "id" ) 

dbPath = Server. MapPath ("nama. mdb") 

xDb_Conn_Str = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

Set conn = Server . CreateObject ( "ADODB . Connection" ) 

conn. Open xDb_Conn_Str 
Set rs = Server .CreateObject ("ADODB. Recordset") 
sqlx = "Select * from [tbl_Nama] where isID="+xID 

rs.Open sqlx, conn 
if rs.EOF then%> 
MAAF, Data yang diminta tak ditemukan ! 



<%end if%> 
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Lanjutan listing tesData4.asp 



<%If not rs.EOF then%> 

UPDATE DATA NAMA.MDB<HR> 

<form action="tesData4 . asp?aks=upd&id=<%=rs ("isID") %>" method=POST> 

Nama : <input type=text name=Nama value="<%=rs ( "isNama" ) %>" /><br> 

Alamat: <input type=text name=Alamat value="<%=rs ( "isAlamat " ) %>" /><br> 

Lulus: <input type=checkbox name=Lulus <%if rs ( "isLulus" ) then %>checked<%else%> <%end if%> /> 

<brxhrxinput type=submit value=KIRIM> 

</form> 

<%end if%> 

<%case "error"%> 

HALAMAN ERROR Silakan kembali [<a href=tesData4 . asp>klik disini</a>] 

<%case "default"%> 

<% dbPath = Server. MapPath ("nama. mdb") 

xDb_Conn_Str = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

Set conn = Server . CreateObject ( "ADODB . Connection" ) 
conn. Open xDb_Conn_Str 

Set rs = Server .CreateObject ("ADODB. Recordset") 
sqlx = "Select * from [tbl_Nama] " 

rs.Open sqlx, conn 
if rs.EOF then%> 

MAAF, Data yang diminta tak ditemukan ! 
<%end if%> 

<table border=lxtr bgcolor=#eefefeee> 

<td>ID</tdxtd>Nama</td><td>Alamat</td><td>Lulus</td><td>EDIT</tdx/tr> 
<%Do While not rs . EOF%xtr><tdx%=rs ( "isID" ) %x/td> 
<tdx%=rs ("isNama") %x/tdxtdx%=rs ("isAlamat") %></td> 
<tdxfont color=<%if rs ( "islulus" ) then%>green<%else%>RED 

<%end if%»<%=rs ("isLulus") %x/f ontx/tdxtd> 

<a href="tesdata4.asp?aks=tampil&id=<%=rs ( "isID" ) %>">Edit Data #<%=rs ( "isID" ) 

<% rs.movenext 

loop 

rs .Close 

Set rs = Nothing 

conn . Close 

Set conn = Nothing %x/tablexhr> 

<a href="tesData3 . asp">Tambah Data Baru</a> 

<%end select%> 



</tdx/tr> 



Output TESDATA4.ASP 




m + * » |5| (2 f | ft http://localhostftes3 



[l0l[Nama J Alamat Lulus EDIT 


1 ||Adana Mulva Jakarta True Edit Data #1 


0|Guruh Adana Banten False Edit Data tl 


3 ||Mava Sari Bandung True Edit Data #3 


4 ||Mulan Jesika Banduna True Edit Data #4 


|F]|Raia Duduna Depok False Edit Data tb 


29 Rukf Hendra Kampna Batu T e Edit Data +29 



Tarn bah Data Bam 



# E*fl - | o, ioo% , * 



tJ http://localhost/tes%20sile/lesdata4.asp?aks=tampiiaiid=29... 


bc=Bl£bl-"£3^l 


File Edit View Bookmarks Widgets Tools Help 


1 v HM| 


* . 


IF 


^ § http://Tocalho5tt 


es%20.,, \J 




m + + »i5iEI^|B httpV/localhost/tes^.y] 


UPDATE DATA NAMA. MDB 










Nama: Ruki Henc 


r 


1 


Alamat: Kampng Batu 
Lulus:Q 


KIRIM | 


# m 


•* | Q, ioo% , » ] 
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Output TESDATA4. ASP pengupdatean pertama 




+ * » iii El ^ 



http ://l o ca I h o st/te s 9 



[fl>][Nama jAfamat Lulus EDIT 


i ||Adana Mulva Jakarta e Edit Data £1 


2 ||Guruh Adana Banten False Edit Data #2 


3 ||Maya Sari Bandung True Edit Data #3 


4 Mulan Jesika Bandung ~\.t Edit Data #4 


5 Raja Dudung Depok False Edit Data #5 


29 Ruki Hendro Kampng Bah 


I False | 


Edit Data #29 


1 1 ^ 







Tarn bah Data Bam 



# Gg - I ^ ioo% , ▼ 




* * * * £& El ^ |B httpiZ/localhost/tes?, 



UPDATE DATA NAMA.MDB 



Nam a: [Ruki Hendro 
Alamat: Kan fpunc] Batu 

Lulus: 



KIRIM 



-i< Gi - i o> ioo% , t] 



Output TESDATA4. ASP pengupdatean kedua 




4i * + » ^ El ^ | B http :.//! oca I h ostites? t .T- 



[ID] Nama Alamat Lulus EDIT 


i Adang Mufya| Jakarta True j Edit Data #1 


2 Guruh Adang Banten False. Edit Data #2 


3 Maya Sari jBanduna J True Edit Data #3 


4 Mulan Jesika Bandung "rue Edit Data #4 


5 Raja Dudung Depok False Edit Data #5 


29] Ruki Hendro Kanlipunf] Batu False Edit Data #29 



Tambah Data Baru 



■■> El * a L00 c i ' 



Sampai pada halaman ini Anda telah mempelajari pengaksesan dan pegupdatean database, 
hal ini menjadi sangat mendasar apabila Anda menginginkan fungsi situs yang lebih 
kompleks lagi seperti BLOG atau bahkan SEARCH ENGINE. Tidak menutup kemungkinan 
situs buatan Anda menjadi terkenal karena kontennya yang menarik. 



EndOfch4. 
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CH5. 

GUEST BOOK 

Guestbook adalah aplikasi sederhana input ke database, guest book umumnya digunakan 
untuk web master akan adanya tanggapan atau saran-saran yang berkaitan dengan situs 
atau konten yang dibuatnya. 

Pada bahasan berikut adalah studikasus guestbook sederhana yang menggunakan database 
nama.mdb tabel tbl_Guestbook dengan kolom gbID (auto increment) gbNAMA (text) 
gbEMAIL(text) dan gblSI (memo). 

Seperti pada bab terdahulu, anda telah mempelajari tentang input ASP ke database 
NAMA.MDB, pada kasus guestbook yang dibahas disini adalah hanya penginputan data saja 
yang selanjutnya pemformatan halaman dengan tag HTML. 

Perhatikan listing GUESTBOOK.ASP 



<% keyNama=Request . form ( "Nama" ) 
keyNama=replace (keyNama, " ' " , " " ) 
keyEmail=Request . form ( "Email " ) 
keyEmail=replace (keyEmail, " ' " , " " ) 
keyIsi=Request . f orm ( "Isi" ) 

aksi= Request . querystring ( "aks" ) 

if aksi="view" then hal="view" 

if aksi="" then hal="def ault" 

if aksi="add" then hal="add" 

if aksio"" and (aksio"view" and aksio"add") then hal="error" 

SELECT CASE hal 

Case "add" 

if keyNama="" or keyAlamat="" then 

response. write ("TERDAP AT FIELD YANG KOSONG, KLIK BACK PADA BROWSER ANDA") 

else 

Set connectADO = Server . CreateObject ( "ADODB . Connection" ) 

dbPath = Server .MapPath ("nama.mdb") 

connectADO. Open "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

strCommand = "INSERT INTO tbl_guestbook (gbNama, gbEmail, gblsi) VALUES ('" 

strCommand = strCommand & keyNama & "','" & keyEmail& "','" & keylsi & »')» 

connectADO. Execute strCommand 

response . redirect "guestbook. asp?aks=view" 

END IF 

%> 

<%case "default"%> 

SILAKAN ISI GUEST BOOK<HR> 

<form action="guestbook . asp?aks=add" method=POST> 

Nama:<br> <input type=text name=Nama value=" " /><br> 

EMAIL :<br> <input type=text name=Email value=" " /><br> 

ISI: <br><textarea name=isi cols=44 row=3x/textarea><br><hr> 

<input type=submit value=KIRIM> 

</form> 

<%case "error"%> 

HALAMAN ERROR Silakan kembali [<a href=guestbook . asp>klik disini</a>] 



Lanjutan 
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<%case "view"%> 

<% dbPath = Server .MapPath ("guestbook.mdb") 

xDb_Conn_Str = "Provider=Microsoft . Jet . OLEDB . 4 . 0; Data Source=" & dbPath 

Set conn = Server . CreateObject ( "ADODB . Connection" ) 
conn. Open xDb_Conn_Str 

Set rs = Server .CreateObject ("ADODB. Recordset") 
sqlx = "Select * from [tbl_guestbook] " 

rs.Open sqlx, conn 
if rs.EOF then%> 

MAAF, Data yang diminta tak ditemukan ! 
<%end if%> 
GUESTBOOK SAYA NEEH 

<table border=lxtr bgcolor=#eefefe> 

<td>ID</tdxtd>Nama</td><td>Email</td><td>ISI</tdx/tr> 
<%Do While not rs . EOF%xtr><tdx%=rs ( "gbID" ) %></td> 
<tdx%=rs ("gbNama") %x/tdxtdx%=rs ("gbEmail") %></td> 
<tdx%=rs ("gbEmail") %> 
</tdx/tr> 
<% rs.movenext 
loop 

rs .Close 

Set rs = Nothing 
conn . Close 

Set conn = Nothing %x/tablexhr> 
<a href="guestbook.asp">ISI GUESTBOOK</a> 
<%end select%> 



Output Guestbook.ASP 



1 tJ http*//locaihos1/te&%20&rte/gueitboofc.a&p- Opera r — " "~ 


H1<p£^*I 


1 File Edit j/iew Bookmarks Widgets loo Is Help 


w r» x ^ * 1 








SILAKAN LSI GUEST BOOK 


Nam a: 




Otoncj 




EMAIL: 




otong@lontoncj onccm 
151: 






Saya rmenjual iontong teserta i3inya... ***;; 1 












[ KIRIM | 




.fin £§ - q, L00% ▼] 




* +■ ■* * & Q •" H http://localriost/tes? t] 



SILAKAN IS! GUEST BOOK 



Nama: 

Bunga 

EMAIL: 

rjunga@mawar.lili 

rsr: 



Saya ic.eEswerkan S^nga Hawar semerbak harum : * 
rr.ewangi 



KIRIM , 



.fi, £l - j q, 1009-i 



Bahasan selanjutnya adalah bahasan 
terakhir mengenai elemen-elemen 
situs internet. Selamat mempelajari 
dan mengaplikasikannya dalam situs 
yang benar-benar online. 

End Of Ch 5. 



FILE-FILE contoh dan latihan dapat di 
DOWNLOAD pada link yang disediakan 
penulis pada website http://rendyys.tk 




* + •♦ » & GJ /■ H http://localhost/te5^,T) 



GUESTBOOK SAYA NEEH 



ID 


Nama 


Email 


ESI 


1 


Otong 


otong@lontong.oncom 


Saya menjual Iontong 
beserta isinya... AA ;; 


3 


Bunga 


bunga@mawar.lllf 


Saya menawarkan 
Bunga Ma war 
semerbak hamm 
mewangf 
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CH6. 

ELEMEN PADA SITUS 



BACK END VS. FRONT END 

Setiap website dinamis memiliki dua sisi yang berbeda, sisi pertama adalah Front End yang 
berinteraksi dengan user secara langsung serta Back End yang hanya berinteraksi dengan si 
pembuat situs atau Webmaster. Umumnya halaman back end sebuah situs bersifat tertutup 
bahkan dirahasiakan dari user yang mengakses, hal ini demi keamanan semata. Keamanan 
dari tangan jahil yang merusak website adalah tanggung jawab web master yang merawat 
site tersebut. 

Karena sifatnya yang berbeda, Front End memiliki interface selengkap-lengkapnya untuk 
end user yang mengunjungi situs tersebut. Front End memiliki tampilan yang dibuat 
sedemikian rupa sehingga menarik pengunjung sehingga pengunjung mendapatkan 
informasi yang dicarinya baik itu hiburan maupun data. 

Berbeda dengan Frot End, tampilan Back End dibuat web master hanya untuk merawat situs 
dari dalam, menghapus entri-entri yang tak berguna, memperbaiki bug dan sebagainya. 
Tampilan back end hanya tergantung si pemilik situs, tentu jika situs tersebut merupakan 
CMS (Content Management System) Back End nya dibuat sangat user friendly bagi si web 
master. 

A. Hak-hak pengunjung 

Setiap website akan dikunjungi user dari seluruh dunia dan tidak semua pengunjung 
tersebut adalah pengunjung yang baik hal ini dikarenakan sifat internet yang terbuka 
bagi siapa saja yang bisa mengaksesnya. 

Pada pengembangan website, web site yang baik seharusnya menjaga dan 
membatasi hak-hak user. Membatasi yang dimaksud adalah membatasi dari 
penginputan data sensitif seperti Homepage, informasi data dsb. Selain itu 
pengunjung diberi keleluasaan agar dapat memberikan masukan bagi pengembang 
web site sehingga pengembang pun dapat memahami keinginan pengunjung. 

Akses pengunjung ke database merupakan hal yang cukup krusial dimana database 
tersebut merupakan wewenang web master. Pengupdatean maupun penulisan isi 
halaman awal (homepage) merupakan harus dijaga dari tangan jahil hacker yang 
berusaha men deface situs ataupun mencuri data. 

B. Perawatan Situs 

Situs harus di rawat dan di update secara kontinyu, hal ini dilakukan demi menjaga 
perkembangan informasi yang cukup pesat. Perawatan termasuk dalam perawatan 
sistem (program), perawatan database, hingga perawatan tampilan situs. 

Situs yang tak terurus dapat dibedakan dengan last entri pada situs tersebut. Last 
entri yang di buat oleh web master menentukan terurus atau tidaknya situs tersebut. 
Jika last entri lebih dari tiga bulan, bisa saja user akan mengabaikan isi situs 
tersebut apalagi jika situs tersebut mengutamakan berita sebagai layanan utamanya, 
tentu tiga bulan adalah waktu yang sangat lama. 
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Web master juga berhak mendesai situsnya sesuai dengan keinginnannya ata 
keinginan klien nya, oleh karena itu komunikasi antara keduanya harus terjalin 
dengan cara menaruh 'user feedback' yang dapat diisi oleh setiap user. 



NAVIGASI DAN DESAIN SITUS 

Situs yang baik harus terarah dan mudah di navigasi, kebanyakan situs telah menyediakan 
search engine yang mampu mencari konten yang diminta user. Selain itu menu dan 
hyperlink yang tertata juga memudahkan user untuk menavigasi situs yang dibuat. 

Untuk mengetahui lebih jauh tentang desain situs, anda dapat mencari berbagai ebook yang 
gratis untuk anda download. 



KEAMANAN SITUS 

Web site memiliki sistem keamanan sesuai dengan kemampuan webmasternya, dapat 
dilihat contoh seperti situs-situs raksasa seperti google atau yahoo, mereka menerapkan 
sistem keamanan terbaru setiap ada trend hacker terbaru. Oleh karena itu web master juga 
harus mengikuti perkembangan dari sisi keamanan. 



PUBLIKASI SITUS 

Publikasi situs cukup penting mengingat situs yang dibuat akan bersaing dengan jutaan 
situs lain yang ada di internet, oleh karena itu publikasi konten dan layanan situs sangat 
berperan terhadap jumlah akses situs itu sendiri. 



Untuk mempublikasikan situs termudah adalah dengan pertukaran banner maupun 
pertukaran link pada forum-forum yang berkaitan dengan situs yang anda buat. Semisal 
situs yang anda buat menyediakan pembuatan program dan tips programming, tentu akan 
cepat diketahui oleh user lain apa bila link ke situs anda ditaruh pada forum programer. 



End Of Book 



"Ilmu pengetahuan itu luas dan tanpa batas...' 
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